isnet Internet/Isnet Internet CD.iso/prog/chat/20/20.exe/clock.vsc

Text File | 1997-07-06 | 771 b | 26 lines

// CLOCK.VSC - Version 1.01
// Adds a simple clock to the main window's toolbar

@l $toolbar = $mapobject(!Main:MainToolbar)

@l $separator = $new(TToolbarSep97 ownedby $toolbar)

// Make clock 65 pixels wide and 23 pixels high

@ $clockpanel = $new(TPanel ownedby $toolbar position ,,65,23)
@p $clockpanel.Font.Name = MS Sans Serif
@p $clockpanel.Font.Size = 8
@p $clockpanel.Font.Style = []
@p $clockpanel.BevelOuter = bvLowered
@p $clockpanel.Hint = Clock|ObjectViRCScript clock example script
@p $clockpanel.ShowHint = True

@ $clocktimer = $new(TTimer ownedby $toolbar)
@p $clocktimer.Interval = 200
@p $clocktimer.OnTimer = CLOCK_UPDATE
@p $clocktimer.Enabled = True

Alias CLOCK_UPDATE
  @p $clockpanel.Caption = $time(hh:nn:ss)
EndAlias